$PBExportHeader$w_child.srw
forward
global type w_child from w_principal
end type
end forward

global type w_child from w_principal
WindowType WindowType=child!
boolean ControlMenu=false
boolean MinBox=false
boolean MaxBox=false
boolean Resizable=false
end type
global w_child w_child

forward prototypes
public function integer f_titulo (string as_titulo)
public function integer wf_titulo (string as_titulo)
end prototypes

public function integer f_titulo (string as_titulo);/*
	Asignar el titulo de la ventana
*/

THIS.Title = as_titulo

RETURN 1
end function

public function integer wf_titulo (string as_titulo);/*
	Asignar el titulo de la ventana
*/

THIS.Title = as_titulo

RETURN 1
end function

on w_child.create
call super::create
end on

on w_child.destroy
call super::destroy
end on

